home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / WBSETUP < prev    next >
Encoding:
Text File  |  1996-03-28  |  2.3 KB  |  143 lines
  1.  
  2. INTUITION_REV    equ    31        v1.1
  3. GRAPHICS_REV    equ    31        v1.1
  4.  
  5. _IntuitionBase: dc.l 0
  6. _GfxBase: dc.l 0
  7. MyScreen: dc.l 0
  8. MyNewScreen    dc.w    0,0        left, top
  9.         dc.w    320,256        width, height
  10.         dc.w    8        depth
  11.         dc.b    0,1        pens
  12.         dc.w    0        viewmodes
  13.         dc.w    CUSTOMBITMAP+CUSTOMSCREEN+SCREENQUIET    type
  14.         dc.l    MyFont        font
  15.         dc.l    screen_title    title
  16.         dc.l    0        gadgets
  17.         dc.l    MyBitmapX    bitmap
  18.  
  19. * my font definition
  20. MyFont    dc.l    font_name
  21.     dc.w    TOPAZ_SIXTY
  22.     dc.b    FS_NORMAL
  23.     dc.b    FPF_ROMFONT
  24.     
  25. MyBitmapX:
  26.     dc.w 40
  27.     dc.w 256
  28.     dc.b 0
  29.     dc.b 8
  30.     dc.w 0
  31.     ds.l 8
  32.  
  33. MyBitmapY:
  34.     dc.w 40
  35.     dc.w 256
  36.     dc.b 0
  37.     dc.b 8
  38.     dc.w 0
  39.     ds.l 8
  40.     
  41. screen_title:
  42.  dc.b "Honest, this is really going to work. NOT.",0
  43.  
  44. int_name    INTNAME
  45. graf_name    GRAFNAME
  46. hello_message    dc.b    'Hello World'
  47.  
  48. * these are C strings, so have to be null terminated
  49. font_name    dc.b    'topaz.font',0
  50. window_title    dc.b    'A Simple Window',0
  51.  
  52.  
  53.  
  54. BMPtr: dc.l MyBitmapX
  55. BMPtr2: dc.l MyBitmapY
  56.     
  57. SCRNDRAWPT:
  58. ScreenXAddr: dc.l 0
  59. SCRNSHOWPT:
  60. ScreenYAddr: dc.l 0
  61.  
  62.  
  63. Open256Screen:
  64.  
  65.     move.l #MyBitmapX,BMPtr
  66.     move.l #MyBitmapY,BMPtr2
  67.  
  68. ;    move.l #2,d1
  69. ;    move.l #10240*8,d0
  70. ;    move.l 4.w,a6
  71. ;    jsr -198(a6)
  72.     move.l #scrn,d0
  73.     move.l d0,ScreenXAddr
  74.     
  75.     lea MyBitmapX+8,a0
  76.     
  77.     move.l d0,(a0)+
  78.     add.l #10240,d0
  79.     move.l d0,(a0)+
  80.     add.l #10240,d0
  81.     move.l d0,(a0)+
  82.     add.l #10240,d0
  83.     move.l d0,(a0)+
  84.     add.l #10240,d0
  85.     move.l d0,(a0)+
  86.     add.l #10240,d0
  87.     move.l d0,(a0)+
  88.     add.l #10240,d0
  89.     move.l d0,(a0)+
  90.     add.l #10240,d0
  91.     move.l d0,(a0)+
  92.  
  93. ;    move.l #2,d1
  94. ;    move.l #10240*8,d0
  95. ;    move.l 4.w,a6
  96. ;    jsr -198(a6)
  97.     move.l #scrn2,d0
  98.     move.l d0,ScreenYAddr
  99.  
  100.     lea MyBitmapY+8,a0
  101.     
  102.     move.l d0,(a0)+
  103.     add.l #10240,d0
  104.     move.l d0,(a0)+
  105.     add.l #10240,d0
  106.     move.l d0,(a0)+
  107.     add.l #10240,d0
  108.     move.l d0,(a0)+
  109.     add.l #10240,d0
  110.     move.l d0,(a0)+
  111.     add.l #10240,d0
  112.     move.l d0,(a0)+
  113.     add.l #10240,d0
  114.     move.l d0,(a0)+
  115.     add.l #10240,d0
  116.     move.l d0,(a0)+
  117.  
  118.     moveq    #INTUITION_REV,d0    version
  119.     lea    int_name(pc),a1
  120.     CALLEXEC OpenLibrary
  121.     tst.l    d0
  122. ;    beq    exit_false        if failed then quit
  123.     move.l    d0,_IntuitionBase    else save the pointer
  124.  
  125.     moveq    #GRAPHICS_REV,d0
  126.     lea    graf_name(pc),a1
  127.     CALLEXEC OpenLibrary
  128.     tst.l    d0
  129. ;    beq    exit_closeint        if failed then close Int, exit
  130.     move.l    d0,_GfxBase
  131.  
  132.     lea    MyNewScreen(pc),a0
  133.     
  134.     CALLINT    OpenScreen        open a screen
  135.     tst.l    d0
  136. ;    beq    exit_closeall        if failed the close both, exit
  137.     move.l    d0,MyScreen
  138.  
  139.     move.l d0,a0
  140.     lea RastPort(a0),a0
  141.     move.w #%100,rp_Flags(a0)
  142.  
  143.  rts